home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / Virtual User 1.0b5 / UserStartup•VU < prev   
Encoding:
Text File  |  1990-10-05  |  1.3 KB  |  59 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        UserStartup•VU 
  3. #
  4. #     Drop this file in your MPW Folder
  5. #
  6. #    Contains:    Initializations for Virtual User extension in MPW 
  7. #
  8. #    Written by:    P Nagarajan
  9. #
  10. #    Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  11. #
  12. #    Change History:
  13. #
  14. #        2/22/90       naga         creation 
  15. #
  16. #    To Do:
  17. #
  18.  
  19. #    Set the location of the Virtual User(or VU) Folder
  20. #     If the folder can't be found; automatically prompts user for it and 
  21. #    changes this file to remember where the folder was found
  22.  
  23.  
  24. Set VUDir    "hd:Virtual User:"
  25.  
  26. Loop
  27.     if `Exists "{VUDir}"Startup` != ""
  28.         Export VUDir
  29.         Set VULibraries    "{VUDir}Libraries:"
  30.         Export VULibraries
  31.         Execute "{VUDir}"Startup
  32.         if {EverLooked} == 1
  33.             set exit 0
  34.             confirm "'UserStartup•VU' will be modified to find Virtual User without any help next time.∂
  35. You will have to save it."
  36.             if {Status} == 0
  37.                 open "{ShellDirectory}UserStartup•VU"
  38.                 find • "{active}"
  39.                 find /'Set VUDir'[ ∂t]+/Δ:Δ/∂n/ "{active}"
  40.                 # we cat because the path may contain characters significant to: Replace
  41.                 echo -n ∂""{VUDir}"∂" | Catenate > "{active}".§
  42.             end #if asked to modify
  43.         end #if New VU directory seen
  44.         exit 0
  45.     else
  46.         set exit 0
  47.         Set EverLooked 1
  48.         Set VUDir ""
  49.         Beep
  50.         (Set VUDir `getfilename -d -m 'Find the Virtual User folder'`) ∑ dev:null
  51.         set exit 1
  52.         if "{VUDir}" == ""
  53.             exit 1
  54.         end
  55.     end
  56. end
  57.  
  58.  
  59.